'Mettre en haut du module 'Option Compare Text Private Sub Recherche() Dim x As Integer, y As Integer Dim Comp As String 'ICI initialiser Comp avec le mot à rechercher. 'Comp = "Mot" 'recherche dans toutes les cellules Comp = "*" & Comp & "*" For y = Grid1.FixedRows To Grid1.Rows - 1 Grid1.Row = y For x = Grid1.FixedCols To Grid1.Cols - 1 Grid1.Col = x If Grid1.Text Like Comp Then MsgBox "Correspondance trouvée à la cellule(" & y & ":" & x & ")" End If Next x Next y End Sub