Anomalie sur une ligne de code

bonsoir

disposant du code suivant :

dans la partie feuille :"BATEAUX AVALANTS"

Private Sub CommandButton1_Click()
reponse = InputBox("mot a chercher")
Range("A31:A" & Range("A65536").End(xlUp).Row).ClearContents
Call recherche(reponse)
End Sub

dans la partie module :

Sub recherche(mot)
On Error GoTo fin
ligne = 31
For Each ws In Sheets
If ws.Name <> "BATEAUX AVALANTS" Then
With ws.Cells
    Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
         Sheets("BATEAU AVALANTS").Cells(ligne, 6).Select
         Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
          ws.Name & "!" & c.Address, TextToDisplay:=c.Value
          ligne = ligne + 1
          Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
      trouve = True
    End If
End With
End If
Next ws
If Not trouve Then MsgBox ("Pas de " & mot & " trouvé dans ce fichier")
fin:
End Sub

le debogage signal une anomalie sur cette ligne :

Range("A31:A" & Range("A65536").End(xlUp).Row).ClearContents

je n'arrive pas à corriger

merci de m'aider à voir , j'ai pas mal essayé sans succès

Bonjour,

Avant de te répondre, merci de bien vouloir éditer le titre du sujet de ta demande en y mettant un sujet explicite.

Depuis ton inscription sur ce forum je ne pense pas que tu aies lu ce fil --> https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html (point 3 surtout).

Merci de ta participation

Bonjour à tous,

J'ai déjà répondu à cette question sur le poste ci-dessous

https://forum.excel-pratique.com/excel/adapter-un-code-t25512.html

inutile de doublonner les postes et merci de les solder une fois résolus.

Amicalement

Claude

désolé ,!!!! j'avais completement oublié que j'avais fait une demande à ce sujet

merci encor