bonjour j'efface un tableau avec ceci très pratique mais pour l'instant il me fait des erreurs dans les plages enregistrées formules/gestionnaires de noms
le résultat est ceci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 ='2013'!#REF!;'2013'!#REF!;'2013'!#REF!;'2013'!#REF!
voila la macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub efface_zone_utilisee(nom_feuille As String, ligne_depart As Integer, colonne_depart As Integer, colonne_fin As Integer)
 
    Dim ligne_fin As Integer
    Dim plage As Range
 
    ligne_fin = Worksheets(nom_feuille).UsedRange.Row + Worksheets(nom_feuille).UsedRange.Rows.Count - 1
 
    Set plage = Worksheets(nom_feuille).Range(Worksheets(nom_feuille).Cells(ligne_depart, colonne_depart), Worksheets(nom_feuille).Cells(ligne_fin, colonne_fin))
    'plage.ClearContents
    'plage.ClearFormats
 
    plage.Delete xlShiftUp
 
    Set plage = Nothing
 
End Sub
pouvez vous la modifier pour que je n'ai plus ce problème svp