J'ai constamment cette erreur qui apparaît et ne trouve pas l'origine.

Elle apparaît au niveau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Not wsBaremesIndexed.Range(nomPlage) Is Nothing Then
Quelqu'un pour m'aider?

Merci d'avance

Habiler

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub CopierPlagesNommees()
    Dim wsGrdVsFct As Worksheet
    Dim wsBaremesIndexed As Worksheet
    Dim plage As Range
    Dim cell As Range
    Dim nomPlage As String
 
    ' Définir les feuilles de calcul
    Set wsGrdVsFct = ThisWorkbook.Sheets("GrdVsFct")
    Set wsBaremesIndexed = ThisWorkbook.Sheets("BaremesIndexed")
 
    ' Parcourir les cellules de E5:E8 dans GrdVsFct
    For Each cell In wsGrdVsFct.Range("E5:E8")
        ' Récupérer le nom de la plage nommée
        nomPlage = Mid(cell.Value, 5) ' Enlever "Ech_" du début du nom
        ' Vérifier si la plage nommée existe dans BaremesIndexed
           If Not wsBaremesIndexed.Range(nomPlage) Is Nothing Then
            ' Copier la plage nommée dans GrdVsFct
            Set plage = wsBaremesIndexed.Range(nomPlage)
            plage.Copy
            ' Coller la plage dans la prochaine rangée vide à partir de la 10ème rangée dans GrdVsFct
            wsGrdVsFct.Cells(10, 1).End(xlDown).Offset(1).PasteSpecial xlPasteAll
        Else
            MsgBox "La plage nommée '" & nomPlage & "' n'existe pas dans BaremesIndexed.", vbExclamation
        End If
    Next cell
 
    ' Effacer le contenu du presse-papiers après avoir collé les plages nommées
    Application.CutCopyMode = False
End Sub