XL 2013 Demande d'aide - Macro Copier vers autres feuilles

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OD As Worksheet 'déclare la variable OD (Onglet de DEstination)
Dim CD As Range 'déclare la variable CD (Cellule de DEstination)
Dim DEC As Byte 'déclare la variable DEC (DÉCalage)

If Target.Column = 5 Then 'condition 1 : si le changement a lieu dans la colonne 5 (=E)
'condition 2 : si aucune cellule vide dans la ligne du changement en colonne A, B et C
If Application.WorksheetFunction.CountBlank(Range(Cells(Target.Row, 1), Cells(Target.Row, 5))) = 0 Then
Set OD = Sheets(Cells(Target.Row, 1).Value & " - SUPP.") 'définit l'onglet de destination OD
Set CD = OD.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellule de destination CD
CD.Value = Cells(Target.Row, 2) 'renvoie le [Choix dessuppléments] dans la cellule de destination CD

CD.Value = Cells(Target.Row, 4) ' Essais de renvois colonne D
CD.Value = Cells(Target.Row, 5) ' Essais de renvois colonne E

DEC = IIf(Target.Value = "Compris dans le prix", 1, 2) 'définit le décalage DEC
CD.Offset(0, DEC).Value = "X" 'renvoie "X" dans CD décalé de DEC cellules à droite
End If 'fin de la condition 2
End If 'fin de la condition 1
End Sub

Cliquez pour agrandir...