Private Sub CommandButton1_Click()
Dim c As Range, Zone As Range
'(c va prendre chaque cellule de la colonne A tant que non vide
' et Zone représentera la Plage Maserie)
Set c = Range("A1"): Set Zone = Range("IV1")
'(au départ on place c en A1 et Zone sur la cellule IV1, afin qu'elle ne soit pas vide sinon l'union qui suit ne peut fonctionner)
Do While c <> ""
If Left(c, 1) = "A" Then Set Zone = Union(Zone, c) 'Left(c(2,1) : ça c'est le 1er caractère de la cellule c. Si c'est A, alors je rajoute la cellule c à la Zone qui deviendra Maserie
Set c = c(2, 1) 'Une manière rapide de passer à la cellule du dessous
Loop 'Boucle tant que c n'est pas vide
Set Zone = Intersect(Range("A:A"), Zone) 'à la fin, j'enlève la cellule IV1 à Zone pour ne garder que les cellules de la colonne A qui commencent par la lettre A
ActiveWorkbook.Names.Add Name:="Maserie", RefersTo:=Zone 'et je définis Maserie comme étant la plage Zone
[Maserie].Select 'et même que je la sélectionne pour qu'on la voit mieux
End Sub 'valà c'est fini, bonne nuit :)