Sub ou Function non défini

Bonjour,

ma macro fonctionne bien si je l'appelle directement.

Sub todocopy()
Worksheets("Suivi").UsedRange.Copy
 Worksheets("TODO").Paste _
 Worksheets("TODO").Range("A1")
 Application.CutCopyMode = False
  Debut = 3
 Fin = 990
 ColNb = 1
For i = Debut To Fin
If Cells(i, ColNb).Value = "TO DO" Then
Cells(i, ColNb).EntireRow.Hidden = False
Else
Cells(i, ColNb).EntireRow.Hidden = True
End If
Next i
Worksheets("TODO").Activate
End Sub

Mais quand je fais appel à elle depuis une autre macro, j'ai ce message "erreur de compilation sub ou fonction non définie"

Sub CommandButton1_Click()
Call todocopy
End Sub

J'ai essayé de modifié le nom de la fonction, de rechercher la référence, mais pas de changement.

Merci à vous.

Bonjour,

Ou se trouve la macro d'origine, sur une feuille ou un module

Bonjour M12,

La macro d'origine se trouve dans la feuille" OK"

Je l'appelle depuis la feuille "TAB" bouton OK.

Par contre les commendes dans la barre d'outils fonctionnent très bien.(Mais je ne sais pas comment modifier l'icone par un texte).

Donc les deux solutions sont idéales pour moi.

Merci.