Erreur sur boucle loop while

Bonjour tout le monde,

J'ai un souci avec un code, a chaque fois j'ai une erreur :

erreur 91 variable objet ou varible de boc with non définie. avec le texte en surbrillance (voir ci dessous)

Private Sub Cmdbtn_OK_Click()
Sheets("Impression").Range("B8:F65000").ClearContents 
 Sheets("Impression").Range("Valeur_Cherché") = Txtbox_DM.Value

   Set C = Sheets("Base de données").Range("j:j").Find(Me.Txtbox_DM.Value, LookIn:=xlValues)
    If Not C Is Nothing Then
      premier = C.Address

      Do
      Sheets("Impression").Range("B65536").End(xlUp).Offset(1, 0).Value = C.Value
      Sheets("Impression").Range("C65536").End(xlUp).Offset(1, 0).Value = C.Offset(0, 1)

        Set C = Range("j:j").FindNext(C)

      Loop While Not C Is Nothing And C.Address <> premier
    End If

End Sub

Je précise que le code marche une fois puis se met en erreur.

Pouvez vous m'aider S'il vous plait?

Merci d'avance.

Bonjour

Ne connaissant pas le contexte et ne sachant pas si la feuille en premier plan est la feuille de recherche

Modifies ton code

Private Sub Cmdbtn_OK_Click()
  Sheets("Impression").Range("B8:F65000").ClearContents
  Sheets("Impression").Range("Valeur_Cherché") = Txtbox_DM.Value

  Set C = Sheets("Base de données").Range("j:j").Find(Me.Txtbox_DM.Value, LookIn:=xlValues)
  If Not C Is Nothing Then
    premier = C.Address

    Do
      Sheets("Impression").Range("B65536").End(xlUp).Offset(1, 0).Value = C.Value
      Sheets("Impression").Range("C65536").End(xlUp).Offset(1, 0).Value = C.Offset(0, 1)

      Set C =Sheets("Base de données").Range("j:j").FindNext(C)

    'Loop While Not C Is Nothing And C.Address <> premier ' inutile le test sur C is nothing
    Loop While C.Address <> premier
  End If
End Sub

Si toujours une erreur joins ton fichier

Bonjour Banzai64,

Merci beaucoup,

C'est déconcertant de faire des erreurs comme ça!!

J'ai juste encore une question si çà ne te dérange pas!!

Actuellement tel que le code est ecrit, je fais une recherche en colonne "J".

Comme puis je faire pour que le code recherche dans plusieurs colonne?

par exemple "J" et "M". J'ai essayé "and", mais ça ne fonctionne pas!!