Sub titiborregan5()A = Sheets("Region").Range("B1").End(xlDown).Row
With Sheets("region")
For i = 2 To A
a_chercher = .Cells(i, 2)
P = Application.Match(a_chercher, Sheets("Contrats").Range("D:D"), 0)
If IsNumeric(P) Then
'MsgBox a_chercher & " trouvé en ligne " & P
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = a_chercher
Sheets("Contrats").Range("A" & P & ":D" & P).Copy Sheets(Sheets.Count).Range("A1")
Sheets(Sheets.Count).Columns.AutoFit
Else
'MsgBox a_chercher & " non trouvé!"
End If
Next
End With
End Sub