Sub REGROUPEMENT2()
For Each sh In Worksheets
ligne = Application.Max(Sheets("REGROUPEMENT").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row, 6)
If InStr(1, " REGROUPEMENT toto titi ", " " & sh.Name & " ") = 0 Then
sh.Cells(sh.Rows.Count, 1).End(xlUp).Resize(, 10).Copy Sheets("REGROUPEMENT").Cells(ligne, 1)
End If
Next
End Sub