Est-il possible d'adapter cette macro?

Bonjour à tous,

Dans cette macro (gentiment fournie par ddetp88), je sélectionne les lignes correspondant à ma variable.

Dim mois As String 'variable alphanumérique
    Dim n As Byte ' variable nombre jusqu'à 256

    mois = Format([A4], "mm") 'trouve le mois en A4 au format exemple "01" pour janvier
    n = 4
    Do While Format(Cells(n, "A"), "mm") = mois 'boucle tant que le format mois de la cellule correspond au format de la variable mois
       If Format(Cells(n, "A"), mois) Then n = n + 1 'incrémente n
    Loop
    'selection
    Range("A4:A" & n - 1).Select 'selectionne les cellules

    End Sub

Mon but maintenant, ce serait de sélectionner les lignes qui diffèrent de cette variable.

Est-ce possible à partir de cette macro?

Je vous avoue que j'ai fait plusieurs tests mais je n'y parviens pas.

Merci à tous pour votre aide,

Cordialement,

xorsankukai

Essaie çà

Dim mois As String                                      'variable alphanumérique
Dim n As Byte                                           ' variable nombre jusqu'à 256

mois = Format([A4], "mm")                               'trouve le mois en A4 au format exemple "01" pour janvier
n = 4
Do While Format(Cells(n, "A"), "mm") = mois             'boucle tant que le format mois de la cellule correspond au format de la variable mois
    If Format(Cells(n, "A"), mois) Then n = n + 1       'incrémente n
Loop

Rows(n & ":" & Range("A4").End(xlDown).Row).Select      'selectionne les cellules

End Sub

Bonsoir Ginga999,

Merci pour ta modif., ça fonctionne nickel !

Bonne soirée,

Cordialement,

xorsankukai