sub test()
Dim a As Range, ligne As Range
Dim b As Range
With ThisWorkbook.Sheets("ArrivéeF ")
Set ligne = .Range("A5")
Set a = .Range("A5:E5")
End With
Set b = Workbooks("cross giono version complète.xlsx").Sheets("Arrivées").Range("B3:G3")
While ligne.Value <> ""
b.Value = a.Value
Set b = b.Offset(1, 0)
Set a = a.Offset(1, 0)
Set ligne = ligne.Offset(1, 0)
Wend
With ThisWorkbook.Sheets("ArrivéeG")
Set ligne = .Range("A5")
Set a = .Range("A5:E5")
End With
While ligne.Value <> ""
b.Value = a.Value
Set b = b.Offset(1, 0)
Set a = a.Offset(1, 0)
Set ligne = ligne.Offset(1, 0)
Wend
End Sub