Sub Balayage()
Dim NbreMyYear As Long
Dim lastline As Long
Dim MyYear As Long
Dim Pays As String
Dim i As Long
Dim compteur As Long
Dim année_en_dur As Long
lastline = Sheets("Chiffres").Range("A" & Rows.Count).End(xlUp).Row
année_en_dur = 2009
For i = 2 To lastline
MyYear = Sheets("Chiffres").Cells(i, 1).Value
Pays = Sheets("Chiffres").Cells(i, 3).Value
If (MyYear = année_en_dur) And (Pays = "ITALIE") Then compteur = compteur + 1
Next i
MsgBox "Dans la feuille, il y a " & compteur & " lignes avec " & année_en_dur & " et le pays indiqué"
End Sub