Sub test()
Dim i As Long, derlig As Long
derlig = Range("A" & Rows.Count).End(xlUp).Row 'recherche la dernière ligne
For i = derlig To 2 Step -1 'boucle de la dernière ligne à 2
'en considerant que prénom est dans la colonne A et mois dans la colonne B
If Range("A" & i).Value = "Pierre" And Range("B" & i).Value = "2018-12" Then
Range("A" & i + 1).Select 'selectionne la cellule suivante
Exit Sub
End If
Next
End Sub