Dim rg As Range, c As Range, ws As Worksheet, bExiste As Boolean
Application.ScreenUpdating = False
Set rg = Sheets("BD").Range("A2:A" & [A65536].End(xlUp).Row) 'plage de données allant de A2 jusqu'à la dernière cellule remplie de la colonne A
For Each c In rg
bExiste = False
For Each ws In ThisWorkbook.Worksheets
With ws
If .Name <> "Annexe1" And .Name <> "Annexe2" And .Name <> "BD" And .Range("A1") = "Client" And .Range("B1") = c.Value Then
ws.Cells(3, 2) = c.Offset(0, 250).End(xlToLeft)
bExiste = True
End If
End With
Next ws
If Not bExiste Then
MsgBox "La fiche du client " & c.Value & " n'a pas été créée.", vbOKOnly + vbInformation, "Alerte"
End If
Next c
Application.ScreenUpdating = True
End Sub