Bonjour,

Je souhaite une macro avec la nom de la feuille en variable.

Grace à la F.A.Q., j'arrive à un bout de code.

déclaration variable
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim varFeuille As Worksheet
Prog 01
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Public Sub CommandButton1_Click()
'CHARGEMENT_PROGRAMME_01
Set varFeuille = Sheets("PROG 01")
Call CHARGEMENT_PROGRAMME
Set varFeuille = Nothing
End Sub

PROGRAMME CHARGEMENT
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Public Sub CHARGEMENT_PROGRAMME()
Application.ScreenUpdating = False
    Sheets(varFeuille).Select
    Range("A3").Select
    Selection.Copy
 
    Sheets(FEUILLE01).Select
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False 
End Sub
Le problème ça bloque à:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets(varFeuille).Select
Cela m'affiche varFeuille=nothing.

Je doit me tromper sur la déclaration de la variable:
Dim varFeuille As Worksheet
Set varFeuille= ???


Pouvez-vous m'aider SVP.
Merci d'avance