Application d'une condition sur une cellule format pourcentage

Bonjour le Forum,

je sollicite votre aide pour avoir une solution à ma macro qui doit s'appliquer sur une cellule format pourcentage

la cellule "A2" présenté en format pourcentage et sur la macro dessous je ne sais pas comment exprimer que la forme est en pourcentage

merci d'avance

Sub Test_macro()

Dim ws1 As Worksheet, Rg1 As Range

Set ws1 = Feuil1
Set Rg1 = Feuil1.Range("A2")     ' en format pourcentage

If Rg1 = "" Then
    ws1.Range("B2") = ""
    ElseIf Rg1 >= 15 Then
    ws1.Range("B2") = "ko"
    ElseIf Rg1 < 15 Then
    Feuil1.Range("B2") = "ok"
    Else
    ws1.Range("B2").ClearContents
End If

End Sub

Bonjour,

Voici une solution possible pour vous.

Sub Test_macro()
    Dim ws1 As Worksheet
    Dim Rg1 As Range

    ' Définir la feuille de travail
    Set ws1 = ThisWorkbook.Sheets("Feuil1")

    ' Définir la plage A2 et formater en pourcentage
    Set Rg1 = ws1.Range("A2")
    Rg1.NumberFormat = "0.00%" ' Format de pourcentage

    If Rg1.Value = "" Then
        ws1.Range("B2") = ""
    ElseIf Rg1.Value >= 0.15 Then ' 15% en décimal est 0.15
        ws1.Range("B2") = "ko"
    ElseIf Rg1.Value < 0.15 Then ' 15% en décimal est 0.15
        ws1.Range("B2") = "ok"
    Else
        ws1.Range("B2").ClearContents
    End If
End Sub

ouii c'est ca, merci bcp