Copier/Coller avec condition

Bonjour,

Je demande votre aide car je n'arrive pas à trouver ce qui ne va pas avec mon code.

J'aimerais qu'il me permette de copier les cases M et O de la ligne si la case M est non nul dans une autre feuille.

Voici mon code et je met le fichier simplifié en PJ.

Merci d'avance.

Option Explicit

Dim f, sh, ln, lgn

Sub mpinfo()

            Set f = Sheets("Feuil2") 'Feuille dans laquelle les lignes seront copier'
            For Each sh In Worksheets 'Pour chaque Feuille du fichier'
                If sh.Range("M14") = "Observations / commentaires" Then 'Permet de détecter si la feuille à ma colonne "Observations / commentaires"'
                    For ln = 14 To sh.Range("I" & Rows.Count).End(xlUp).Row 'Rechercher dans toutes les lignes de la feuille'
                        If sh.Range("M" & ln) = "<>" Then 'Si la case M + la ligne en cours est non nul'
                            lgn = Application.Max(6, f.Range("F" & Rows.Count).End(xlUp)(2).Row) 'Copie la ligne de la case M à O dans la feuille f en commençant par la case A6 et en descendant si la classe est utilisé'
                            sh.Range("M" & ln & ":O" & ln).Copy f.Range("A" & lgn)
                        End If
                    Next ln
                End If
            Next sh
            MsgBox "Travail terminé !"

End Sub

En faite je viens de me rendre compte que mon problème se trouve dans la définition de la case non vide.

Quelqu'un pourrais me confirmer que pour une case non vide c'est <> ?

Bon j'aurais fait un monologue mais j'ai trouvé mon erreur pour la condition non vide c'est <>"".

Désoler du dérangement.