Bonsoir Jeremylavergne, iliyes, le forum,
Par macro....
Sub calcul()
Dim i As Integer, dl As Integer
Dim compteur As Integer
Dim name As String
name = InputBox("veuillez saisir le prénom")
compteur = 0
If name = "" Or name = vbNullString Then Exit Sub
With Sheets("Feuil1")
dl = .Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To dl
If UCase(Cells(i, 1)) = UCase(name) Then compteur = compteur + 1
Next i
End With
MsgBox name & " apparait " & compteur & " fois"
End Sub
Sub calcul_2()
Dim i As Integer, dl As Integer, plage As Range
Dim compteur As Integer
Dim name As String
name = InputBox("veuillez saisir le prénom")
If name = "" Or name = vbNullString Then Exit Sub
With Sheets("Feuil1")
dl = .Range("A" & Rows.Count).End(xlUp).Row
Set plage = .Range("A1:A" & dl)
compteur = Application.WorksheetFunction.CountIf(plage, name)
End With
MsgBox name & " apparait " & compteur & " fois"
End Sub
Cordialement,