Sub test1()
Dim Compte As String
Dim CompteTrouve
Dim CelluleCourante1 As Range
Dim CelluleSuivante1 As Range
Set CelluleCourante1 = Sheets("data").Range("B2")
Do Until CelluleCourante1.Value = ""
Set CelluleSuivante1 = CelluleCourante1.Offset(1, 0)
Compte = CelluleCourante1.Value
Set CompteTrouve = Sheets("test1").Range("A:Z").Find(What:=Compte)
On Error Resume Next
CelluleCourante1.Offset(0, 5).Value = CompteTrouve.Value
CelluleCourante1.Offset(0, 6).Value = CompteTrouve.Column
Set CelluleCourante1 = CelluleSuivante1
Loop
End Sub