Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
[B1] = ""
Rows("4:" & Rows.Count).Delete 'RAZ
Sheets("BDD").[A4].CurrentRegion.Copy [A3]
[A3] = Chr(1) 'sécurité
With [A3].CurrentRegion
If Application.CountIf(.Columns(1), "<>" & .Cells(2, 1)) > 1 Then .Offset(1).Resize(.Rows.Count - 1).Delete xlUp: Exit Sub
[B1] = "FICHE DU CLIENT " & UCase(.Cells(2, 1))
End With
End Sub
[A4].CurrentRegion.AutoFilter 1, IIf([A2] = "", "*", [A2])