Copier une ligne précise d'une plage nommée

Bonjour à tous,

Dans mon code, j'obtiens la plage nommée "Modele" de la sorte :

If ((WsFP.[O1] <= T) And (WsFP.[P1] >= T)) Then
            WsMd.Range("J1:Q9").Name = "Modele"
Else
            WsMd.Range("A1:H9").Name = "Modele"
End If

Ensuite, j'aurais besoin de sélectionner des lignes précises pour les copier dans d'autres emplacements :

'-- Copiage de la partie "Nom & prénom"
[Modele].Rows("1:2").Cells.Copy WsFP.Range("A" & L)
'--- code------'
'-- Vider la plage nommée
Set [Modele] = Nothing ' Ça génère une erreur !!

Mais rien n'est copiée; et la dernière ligne génère une erreur !

Merci d'avance.

bonsoir,

exemple d'utilisation de names et de l'object range, pour arriver in fine au même résultat.

Sub test()
'utilisation de names
Range("A1:I10").Name = "Modele"
[Modele].Rows("1:2").Copy Range("A20")
Names("Modele").Delete

'utilisation de l'object range
Set Modele = Range("A1:I10")
Modele.Rows("1:2").Copy Range("A20")
Set Modele = Nothing

End Sub

Bonjour heso4,

Merci, je vois maintenant la déférence.