Aide sur VBA pour une requête SQL

Salut,
Clic droit sur l'onglet de la feuille concernée / Visualiser le code puis copier coller ceci (ou quelque chose dans le genre...) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim num As String
If Target.Address <> "$A$4" Then Exit Sub
num = Sheets("Feuil1").Range("A4").Value
If Right(num, 1) <> "'" Then
num = num & "'"
End If
If Left(num, 1) <> "'" Then
num = "'" & num
End If
Destination:=Range("$B$1")).QueryTable 
.CommandText = Array( _ 
"SELECT *" & Chr(13) & "" & Chr(10) & " FROM [Entreprise].[dbo].[Client]" & Chr(13) & "" & Chr(10) &"WHERE clID =" & num) 
End Sub

Bonjour, j'ai un autre soucis: tout mes exemple donné si dessus concerne une macro qui est écrite dans la feuil1. Or je souhaite que ma valeur A4 qui déclenche la macro et qui est une variable de ma requête soit saisie sur une autre feuille (feuil 2 par ex) et garder le résultat de ma requête sur la feuille 1

j'ai donc écrit le code suivant

Dans Feuil2 j'ai :

Private Sub Worksheet_Change(ByVal Target As Range)

'Exécution automatique
If Target.Address <> ("A4") Then Exit Sub

Call Requete
End Sub

Dans This Workbook j'ai :

'Affectation d'une valeur dans la variable
tabl = Worksheets(2).Range("A4").Value

'Place [ et ] sur tabl
If Right(tabl, 1) <> "]" Then
tabl = tabl & "]"
End If
If Left(tabl, 1) <> "[" Then
tabl = "[" & tabl
End If

'Efface les valeur déja présente
Worksheets(1).Range("B:CW").ClearContents

'Requete SQL
With Worksheets(1).ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DSN=Serveur;UID=aa;PWD=mdp;;;DATABASE=Entreprise" _
, Destination:=Worksheets(1).Range("$B$1")).QueryTable
.CommandText = _
"SELECT" & col & Chr(13) & "" & Chr(10) & "FROM [Entreprise].[dbo]." & tabl & Chr(13) & "" & Chr(10) & "WHERE" & whe & fil
.Refresh BackgroundQuery:=True
End With

End Sub

Or ce code ne marche pas, j'ai message d'erreur qui me dit q'un sub ou une function non définie, et je ne voit mon erreur, donc si quelqu'un veut bien m'aider

Merci