Dim mini As String
Dim maxi As String
mini = UserForm1.ComboBox1.Value
maxi = UserForm1.ComboBox2.Value
Sheets("base").Range("AS1").Value = "analyse "
With Sheets("base").Range("AS2:AS" & [A65000].End(xlDown).Row)
.FormulaR1C1 = _
"=IF(AND(RC[-9]>= mini ,RC[-9]<= maxi),""A vérifier en priorité"","" "")"
.Value = .Value
End With