Bonjour le fil, bonjour le forum,
Une autre proposition VBA avec le code ci-dessous :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim LI As Integer 'déclare la variable LI (LIgne)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter a ton cas)
'définit la dernière ligne éditée (colonne A ou B)
DL = IIf(O.Cells(Application.Rows.Count, "A").End(xlUp).Row > O.Cells(Application.Rows.Count, "B").End(xlUp).Row, O.Cells(Application.Rows.Count, "A").End(xlUp).Row, O.Cells(Application.Rows.Count, "B").End(xlUp).Row)
TV = O.Range("A1:B" & DL) 'définit le tableau des valeurs TV
'boucle inversée de la dernière ligne DL à la ligne 1
For I = DL To 1 Step -1
If TV(I, 1) = 1 And TV(I, 2) = 1 Then 'condition : si les deux valeurs des colonne 1 et 2 (=> A et B) valent 1
LI = I 'définit la ligne LI
Exit For 'sort de la boucle
End If 'fin de la condition
Next I 'prochaine ligne de la boucle
MsgBox LI 'affiche la variable LI (ici tu feras ce que tu veux)
End Sub