Re : Erreur d'excution '9' dans VBA
RE
Voilà ta macro modifier
Dim i As Integer
Sub NommerLignesGIEL2()
For i = 4 To 23
Range(Cells(i, 4), Cells(i, 67)).Select
ActiveWorkbook.Names.Add Name:=Sheets("Tdb GIE L2").Cells(i, 3), RefersToR1C1:="='Tdb GIE L2'!R" & i & "C4:R" & i & "C67"
Next
End Sub
Mais il faut que tu retires les espaces dans tes prénoms car sinon ça bug