Sub Numeroter()
'numérotation des combats portant les lettres de A à Z
Dim Listefeuilles()
ctrf = -1
For Each Ws In Worksheets 'on établit la liste des feuilles à numéroter
c = Mid(Ws.Name, 2, 1)
If c >= "A" And c <= "Z" Then 'nom en majuscule => feuille à numéroter
ctrf = ctrf + 1
ReDim Preserve Listefeuilles(ctrf)
Listefeuilles(ctrf) = Ws.Name
End If
Next Ws
'on numérote les feuilles lettre par lettre
For i = 1 To 26 ' 26 lettres
lettre = Chr(i + 64) ' lettre
For Each Wsn In Listefeuilles
Set Ws = Sheets(Wsn)
Ws.Unprotect
Set pl = Ws.Range("A1:BB100") 'on fait l'hypothèse que les lettres à numéroter sont toujours dans la plage "A1:BB100" de chaque feuille
Set re = pl.Find(lettre, lookat:=xlWhole, MatchCase:=True, LookIn:=xlValues)
If Not re Is Nothing Then
fa = re.Address
Do
ctr = ctr + 1
re.Offset(, 1) = ctr
Set re = pl.FindNext(re)
Loop Until re.Address = fa
End If
Ws.Protect
Next Wsn
Next i
End Sub