Vba & +

Bonjour,

je te remercie pour la lecture de mon pb en vba

Voilà, en fait jai fait la macro ci dessus dans le classeur "Copie temp2"

Sub calcul()


Dim NbrLig3 As Long



cel1 = Application.Intersect(Range("B1:B100"), Range("A4:P4"))
cel2 = Application.Intersect(Range("B1:B100"), Range("A6:P6"))
cel3 = Application.Intersect(Range("B1:B100"), Range("A7:P7"))
cel4 = Application.Intersect(Range("B1:B100"), Range("A9:P9"))

NbrLig3 = Sheets("Copie temp2").Cells(65536, 1).End(xlUp).Row



Rows(NbrLig3).Select
ActiveWorkbook.Names.Add Name:="lig", RefersToR1C1:="='Copie temp2'! R&NbrLig3"

Set isect1 = Application.Intersect(Range("B1:B100"), Range("lig"))

End Sub

elle me renvoi une erreur à la ligne
Set isect1 = Application.Intersect(Range("B1:B100"), Range("lig"))
comme quoi la méthode range ne marche pas

en fait je pense que cela est dû à ma variable lig

en fait lig est le nom d'une ligne grace à la ligne suivante

ActiveWorkbook.Names.Add Name:="lig", RefersToR1C1:="='Copie temp2'! R&NbrLig3"

Merci et à bientot!

bonne journée