Sub Macro7()
Dim o As Object 'déclare la variable o (Onglet)
Dim no As String 'déclare la variable no (Nom de l'Onglet)
Dim i As Integer 'déclare la variable i (Incrément de ligne)
Dim j As Integer 'déclare la variable j (Incrément de colonne)
For Each o In Sheets 'boucle sur tous les onglets du classeur
If Left(o.Name, 7) = "Archive" Then 'si les 7 premiers caractères du nom de l'onglet sont "Archive"
no = o.Name 'définit la nom de l'onglet
For i = 6 To 300 'boucle 1 : des lignes 6 à 300
For j = 4 To 147 'boucle 2 : des colonne D à EQ
'nomme la plage composée de la cellule (i,j) : no + Lettre de la colonne + Numéro de ligne (exemple "Archive1D6")
If o.Cells(i, j).Value <> "" Then o.Cells(i, j).Name = no & Trim(Split(Columns(j).Address(0, 0), ":")(0)) & i
Next j 'prochaine colonne de la boucle 2
Next i 'prochaine ligne de la boucle 1
End If 'fin de la condition
Next o 'prochain onglet du classeur
End Sub