Private Sub CommandButton1_Click()
Dim valeurs As Variant, lignes() As Variant
Dim valeurAChercher As String
Dim i As Integer, j As Integer
valeuracherche = Range("E5").Value
If valeurAChercher = "" Then
MsgBox "Exécution interrompue: aucun mot à chercher dans la cellule E5!", vbExclamation, "Rechercher mot"
Exit Sub
End If
valeurs = Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
For i = 1 To UBound(valeurs)
If valeurs(i, 1) = ValeurAChercher Then
j = j + 1
ReDim Preserve lignes(1 To j)
lignes(j) = i + 2
End If
Next i
If j > 0 Then Range("G5").Resize(, j) = lignes
End Sub