Macro copie de données sélectives dans tablea

Sub transfertA()

Dim nom As String
dim ligvide as Integer

nom = ActiveCell.Value
If nom = "" Then
    MsgBox "Erreur : Aucun nom sélectionné, veuillez selectionner une case non-vide", vbCritical
End If

ligvide = Range("A65536").End(xlUp).Row + 1

If ligvide > 18 Then
    MsgBox ("Le groupe est complet, le nom """ & nom & """ n'a pas pu etre inseré")
Else
    Range("A" & ligvide).Value = nom
End If


End Sub

Sub selection()
Dim sel As Byte, grAmo As Byte
sel = ActiveWindow.RangeSelection.Count
grAmo = WorksheetFunction.CountA(Range("a12:A18"))
If (7 - grAmo) >= sel Then
livi = Cells(19, 1).End(xlUp).Offset(1, 0).Row
ActiveWindow.RangeSelection.Copy Destination:=Cells(livi, 1)
Else
MsgBox "Pas de place disponible, désolé!"
End If
End Sub

Sub vers_équipeB()
'
' vers_équipeB Macro
'
Dim sel As Byte, grBmo As Byte
Dim livi As Byte

Application.ScreenUpdating = False 'desactive le rafraissement d'écran

sel = ActiveWindow.RangeSelection.Count
grBmo = WorksheetFunction.CountA(Range("C39:C45")) 'TA PLAGE DE DESTINATION EST EN COLONNE C !
If (7 - grBmo) >= sel Then
    livi = Cells(47, 3).End(xlUp).Offset(1, 0).Row
    ActiveWindow.RangeSelection.Copy 'copie la plage dns le presse-papier
    Cells(livi, 3).Select 'selectionne le cellule de destination
    Selection.PasteSpecial (xlPasteValues) 'colle uniquement les valeurs contenues dans le presse-papier
Else
    MsgBox "Le groupe est complet ! Vous ne pouvez plus mettre de noms. "
End If

Application.CutCopyMode = False 'desactive la mise en surbrillance de la cellule copiée

Application.ScreenUpdating = False 'permet le rafraichissement d'écran

End Sub