Sub plus1()
Dim num As Integer, Lg As Long
' Sauvegarde des donnée sur feuille "recap"
With Feuil1
Lg = .Range("F1") + 1
Feuil2.Cells(Lg, 2) = .Range("C15") ' Date de réception
Feuil2.Cells(Lg, 3) = .Range("C12") ' Destinataire
Feuil2.Cells(Lg, 4) = .Range("C19") ' Fournisseur
Feuil2.Cells(Lg, 5) = .Range("C17") ' Transporteur
Feuil2.Cells(Lg, 6) = .Range("C21") ' Nature marchandise
Feuil2.Cells(Lg, 7) = .Range("C28") ' Remis le
Feuil2.Cells(Lg, 7) = .Range("E40") ' Nom du signataire
' Incrémentation du bordereau de prise en charge
.Range("f1").Value = .Range("f1").Value + 1
End With
End Sub