Enregistrement erreur codage

Question

Bonjour, ma macro fonctionnait jusqu'au moment où je lui rajoute des radio boutton pour le choix des cellules et ce qu'il faut qu'il enregistre.

C'est une erreur de syntaxe.

Sub ChoixEnregristrement()

Dim nomfichier As String
Dim datefichier As String
Dim jourfichier As String
Dim semfichier As String
Dim nomfichiercomplet As String
Dim lignedelete As Range

nomfichier = "PLANNING HEBDO IDE-AS"
datefichier = Worksheets("IDE AS LOG ACC JOUR").Range("U1").Value
semfichier = Worksheets("IDE AS LOG ACC JOUR").Range("D1").Value
nomfichiercomplet = nomfichier + " " + jourfichier + " " + "SEM " + semfichier + " " + datefichier

Application.ScreenUpdating = False

If Choixjourbtn.Value = True Then 'Bouton radio 1

lignedelete = Rows("58:112") 'LA LIGNE QUI BUG
jourfichier = Worksheets("IDE AS LOG ACC JOUR").Range("T1").Value

ElseIf Choixnuitbtn.Value = True Then 'Bouton radio 2

 jourfichier = Worksheets("IDE AS LOG ACC JOUR").Range("T59").Value
 lignedelete = Rows("1:57")
ElseIf Choixjourbtn.Value + MenuGlobal.Choixnuitbtn.Value = False Then 'Si les deux boutons pas cochés

jourfichier = Worksheets("IDE AS LOG ACC JOUR").Range("T59").Value + " " + Worksheets("IDE AS LOG ACC JOUR").Range("T59").Value
lignedelete = Null
End If

Worksheets("IDE AS LOG ACC JOUR").Cells.Copy
Workbooks.Add
ActiveSheet.Cells.PasteSpecial xlPasteAllUsingSourceTheme
ActiveSheet.Cells.PasteSpecial xlPasteValuesAndNumberFormats
lignedelete.Delete 'LA OU LA FONCTION AVEC IF THEN ELSE DOIT AGIR
ActiveSheet.SaveAs Filename:=nomfichiercomplet
ActiveWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True

MsgBox ("La page a été sauvegardée avec le nom: " & nomfichiercomplet)

End Sub

Merci de l'aide apporté ca bug sur le premier "lignedelete".

LouReeD · Accepted Answer

Essayez en ajoutant Set, en effet on attribue à un objet Range une plage quelconque avec SET en début de ligne : SET lignedelete = Rows("58:112") @ bientôt LouReeD...