Salut,
Voici une proposition qui marche très bien sur l'exemple:
J'ai supposé que les infos client commencent à partir de A3 comme dans l'exemple
Option Explicit
Option Base 1
Sub remplissage_tab()
Dim nbreligne
Dim i
Dim lineres
Dim colres As Byte
nbreligne = Application.WorksheetFunction.CountA(Columns(1)) + 1
lineres = 3
colres = 3
For i = 3 To nbreligne
If Range("A" & i).value <> "/" Then
If InStr(1, Range("A" & i).value, "@", 1) <> 0 Then
Cells(lineres, 4).value = Range("A" & i).value
Else
If InStr(1, Range("A" & i).value, "Tél.", 1) <> 0 Then
Cells(lineres, 5).value = Range("A" & i).value
Else
If InStr(1, Range("A" & i).value, "Mob.", 1) <> 0 Then
Cells(lineres, 6).value = Range("A" & i).value
Else
Cells(lineres, 3).value = Range("A" & i).value
End If
End If
End If
Else
lineres = lineres + 1
End If
Next i
End Sub