Sub Nomme()
Feuilles_non_concernees = "INDIVIS,BEAUCE SOLOGNE,FG,CUMUL DR,BRETAGNE VENDEE,VAL DE LOIRE,V.D.L - Tours,V.D.L - Orléans,BASSE NORMANDIE ANJOU,B.N.A - Angers,B.N.A - Caen,AQUITAINE,AQUIT. Bordeaux,AQUIT. Vallans,AQUIT. Castets,Agence RGT,DIVERS" '
For Each s In Sheets
If InStr(Feuilles_non_concernees, s.Name) = 0 Then
For n = 1 To s.Range("A65536").End(xlUp).Row
If s.Range("A" & n) <> "" Then
If s.Range("B" & n + 1) = "" Then
finl = n
Else
finl = s.Range("B" & n).End(xlDown).Row
End If
finc = s.Range("IV1").End(xlToLeft).Column
nom = s.Range("A" & n)
ad = "=" & s.Name & "!" & s.Range(Cells(n, 3).Address & ":" & Cells(finl, finc).Address).Address(1, 1, xlR1C1)
ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=ad
End If
Next n
End If
Next s
End Sub