Re : Recuperer des donnees
Bonjour Tom32, le forum,
modif de la plage:
Sub Test()
Range("D4:K60").ClearContents
Depart = "Sheet1"
Arrivee = "Sheet2"
ZoneArrivee = "D3:K3"
i = 1
For Each X In Sheets(Depart).Range("E3:" & Sheets(Depart).Range("E65536").End(xlUp).Address)
If X <> "" Then
MaVar = Application.Match(X, Sheets(Arrivee).Range(ZoneArrivee), 0)
Sheets(Arrivee).Range(ZoneArrivee).Offset(i, MaVar - 1).Resize(1, 1) = X.Offset(0, 1)
Else
i = i + 1
End If
Next
End Sub
JHA