XL 2019 XL 2021 - VBA : boucles et conditions

'Définition variable = Cellule As Range
Dim Cell
'Sélectionner Cellule G2 -> Pas nécessaire
'Pour chaque Cellule dans Feuil1ColonneG = non vide (For Each Cellule In Range("G:G")
For each Cell in Sheets("Feuil1").Columns("G:G")
'SI Cellule = CDI et Cellule non vide (Si c'est CDI c'est forcément non vide)
    If Cell.Value = "CDI" Then
'ALORS Calcul
        Calcul
'SINON -> Pas nécessaire s'il ne faut rien faire, fin du If
    End if
'SI Cellule = vide
'ALORS -> Alors que faire ?
Next Cell

'Définition de la variable
Dim Cell

'Pour chaque cellule de la Colonne G
For each Cell in Sheets("Feuil1").Columns("G:G")
'SI Cell = CDI ALORS
    If Cell.Value = "CDI" Then
' CALCUL
'        Colonne D - Colonne F + 10%
    End if
'SI Cellule = vide
'ALORS -> Arreter la boucle
Next Cell