Sub Mise_en_Forme()
Dim Coin As Range, Prem As String
Set Coin = ActiveSheet.Range("A:A").Find("Code Famille")
If Not Coin Is Nothing Then Prem = Coin.Address Else Exit Sub
Do
Coin.AutoFormat Format:=xlRangeAutoFormatSimple, Number:=True, _
Font:=True, Alignment:=False, Border:=True, Pattern:=True, Width:=False
Set Coin = ActiveSheet.Range("A:A").FindNext(Coin)
Loop While Not Coin Is Nothing And Prem <> Coin.Address
End Sub