Sub ARCHIVAGE()
'suggestion mettre les enseignes de feuille NCF dans feuille suivi
Dim Ws As Worksheet, L As Long, Ligne(1 To 1, 1 To 23)
Set Ws = Sheets("SUIVI DES NCF")
Ligne(1, 1) = Range("F4") 'date
Ligne(1, 2) = Range("E2") 'nc
Ligne(1, 3) = Range("B8") 'fourn
Ligne(1, 4) = Range("B9")
Ligne(1, 5) = Range("B11")
Ligne(1, 6) = Range("B22") 'art
Ligne(1, 7) = Range("B23")
Ligne(1, 8) = Range("B24")
'après = mettre les bonnes cellules
Ligne(1, 9) = Range("B8") 'problème
Ligne(1, 10) = Range("B9")
Ligne(1, 11) = Range("B11")
Ligne(1, 12) = Range("E2")
Ligne(1, 13) = Range("B8")
Ligne(1, 14) = Range("B9")
Ligne(1, 15) = Range("B11")
Ligne(1, 16) = Range("E2")
Ligne(1, 17) = Range("B8")
Ligne(1, 18) = Range("B9")
Ligne(1, 19) = Range("B11")
Ligne(1, 20) = Range("E2")
Ligne(1, 21) = Range("B8")
Ligne(1, 22) = Range("B9")
Ligne(1, 23) = Range("B11")
L = Ws.Range("A65000").End(xlUp).Row + 1
Ws.Range("A" & L).Resize(UBound(Ligne, 1), UBound(Ligne, 2)) = Ligne
End Sub