pb vba base données

Bonjour à tous,

je suis actuellement sur une astuce pour gérer deux feuilles pour une base de données. Je m'explique, la première feuille est une feuille de saisie qui permet dobtenir la fiche client si besoin, et la deuxième feuille répertorie les différents clients.

J'ai créé un bouton: valider qui permettrait de rentrer le client directement dans la deuxième feuille mais ma synthaxe doit être deffectueuse ...

Code Visual Basic :Private Sub valider_Click()

Dim ch As String

ch = Trim(SAISIE.[G6])

If Len(ch) < 2 Then End

With BASE

If WorksheetFunction.CountIf(.[F:F], ch) Then

MsgBox "CE CLIENT EXISTE DÉJÀ !!!"

Else

.[A2:AX2].Insert xlDown, xlBelow

.[A2] = .[A3] + 1

.[F2] = ch

.[C2] = Date

.[H2] = Trim(SAISIE.G17)

.[i2] = ........

MsgBox ch & " à été ajouté dans la base"

End If

End With

End Sub

OMG what's the problem?? ^^