[resolu] distribuer des vleurs de cellules

Bonjour à tous et à toute.
Je cherche distribuer les valeurs se trouvant dans des cellule d'une feuille vers une autre.
J'ai crée des variables pour indexer le deplacement dans les cellules d'origine et copier vers les cellules de de la seconde feuille.
C'est la fonction copie avec les variables qui ne semblent pas fonctionner, je pense avoir une erreur de syntaxe...



Sub Boutontransfert_cliquer()

Dim ColDep1 As Integer
Dim LigDep1 As Integer
Dim ColDep2 As Integer
Dim LigDep2 As Integer

Dim ColAri1 As Integer
Dim LigAri1 As Integer
Dim ColAri2 As Integer
Dim LigAri2 As Integer

ColDep1 = 1
LigDep1 = 2
ColDep2 = 4
LigDep2 = 2
LigAri1 = 1
LigAri2 = 3

Do While Not IsEmpty(Cells(LigDep1, ColDep1))

If (LigDep1 And 1) = 0 Then
ColAri1 = 1
ColAri2 = 1
Else
ColAri1 = 4
ColAri2 = 4
End If
Sheets("feuil2").Range(Cells(LigDep1, ColDep1)).Copy Sheets("feuil3").Range(Cells(LigAri1, ColAri1))
Sheets("feuil2").Range(Cells(LigDep1, ColDep2)).Copy Sheets("feuil3").Range(Cells(LigAri2, ColAri2))
LigDep1 = LigDep1 + 1
If (LigDep1 And 1) = 0 Then
LigAri1 = LigAri1 + 3
LigAri2 = LigAri2 + 3
End If

Loop

End Sub


Merci