Sub Macro1()
Dim i As Integer
Dim a As Variant
i = 100 ' variable i à 100 pour démarrer la boucle à partir de la ligne 100
a = Sheets("Feuil1").Cells(i, 1).Value 'on regarde la cellule A100 onglet Feuil1
Do While a <> "SSM" 'Tant que la cellule est <> SSM, on regarde la valeur de la cellule 'du dessus'
i = i - 1
a = Sheets("Feuil1").Cells(i, 1).Value
Loop
Sheets("Feuil1").Range("C1").Value = Range("B" & i).Value
End Sub