Mon projet (Résolu)

Peux tu m'aider à traduire ceci car je suis dans le flou

' Sortie ====> Mouvement
derligjourn = derligjourn + 1
'je parcours les lignes des sorties
For Each C In Sheets("Sorties").Range("A4:A" & derlig)
'je m'assure que la sortie n'est pas vide pour éviter une insertion d'une ligne vide
If C <> "" Then
'je saisie que c'est une sortie
Sheets("MVT").Range("A" & derligjourn).Value = "Sorties"
'je saisie la designation
Sheets("MVT").Range("A" & derligjourn).Offset(0, 1) = C
'je saisie la quantité
Sheets("MVT").Range("A" & derligjourn).Offset(0, 2) = C.Offset(0, 1)
'je saisie la date
Sheets("MVT").Range("A" & derligjourn).Offset(0, 5) = Date
'j'incremente le numéro de ma derniere ligne
derligjourn = derligjourn + 1
End If
Next
Je voudrais rajouter 2 colonnes (E) et (F)
Merci

Cliquez pour agrandir...