Sub ESSAI()
Dim i As Long
For i = 43 To 8 Step -1
If Cells(i, 2).FormulaR1C1 <> "=Compétences!R[-31]C[27]" And Cells(i, 2).FormulaR1C1 <> "=Compétences!R[-24]C[19]" _
And Cells(i, 2).FormulaR1C1 <> "=Compétences!R[-23]C[18]" And Cells(i, 2).FormulaR1C1 <> "=Compétences!R[-8]C[2]" _
And Cells(i, 2).FormulaR1C1 <> "=Compétences!R[-7]C[1]" Then
Rows(i).Delete
End If
Next
End Sub