Public Sub TelLigue()
Dim L As Long, i As Long, j As Long, TblLigue, TblTel
TblLigue = Feuil1.UsedRange
TblTel = Feuil2.UsedRange
L = 1
For i = 2 To UBound(TblTel, 1)
For j = 2 To UBound(TblLigue, 1)
'présent dans tel et ligue
If UCase(TblTel(i, 4)) & UCase(TblTel(i, 2)) = UCase(TblLigue(j, 1)) & UCase(TblLigue(j, 2)) Then
L = L + 1
Feuil3.Range("D" & L).Value = TblTel(i, 4): TblTel(i, 4) = "": TblLigue(j, 1) = ""
Feuil3.Range("B" & L).Value = TblTel(i, 2)
Feuil3.Range("F" & L).Value = TblTel(i, 6)
Exit For
End If
Next j
Next i
'tel
For i = 2 To UBound(TblTel)
If TblTel(i, 4) <> "" Then
L = L + 1
Feuil3.Range("D" & L).Value = TblTel(i, 4) 'nom
Feuil3.Range("B" & L).Value = TblTel(i, 2) 'prénom
Feuil3.Range("F" & L).Value = TblTel(i, 6) 'given
End If
Next i
'ligue
For i = 2 To UBound(TblLigue)
If TblLigue(i, 1) <> "" Then
L = L + 1
Feuil3.Range("D" & L).Value = TblLigue(i, 1) 'nom
Feuil3.Range("B" & L).Value = TblLigue(i, 2) 'prénom
End If
Next i
End Sub