Fonction à deux arguments qui ne devrait pas renvoyer de valeur

Bonjour à tous,

Je rencontre une erreur de compilation avec une de mes fonctions à deux arguments. Voici ma fonction :

Sub couper_copier_coller(text As String, cellule As String)

Dim Ma_Forme As Shape

For Each Ma_Forme In Sheets(text).Shapes
If Ma_Forme.Name = "DRIVE" Then
Ma_Forme.Delete
End If
Next Ma_Forme

Sheets("déplacement").Select
ActiveSheet.Shapes.Range(Array(text)).Select
Selection.Copy
Sheets("START").Select
Range(cellule).Select
ActiveSheet.Paste

End Sub

Dans ma fonction principal, je l'ai appelé comme ceci
Dim name1, cell1 as string

couper_copier_coller(name1,cell1)


Mais le compilateur affiche :
erreur de compilation, attendu :=

Pourquoi veut-il que je lui renvoie une valeur ?? Je ne veux pas. J'aimerai seulement appeler ma fonction.

Merci d'avance pour votre aide !