Problème mise en page conditionnel VBA

Bonjour,

Je suis nouveau en VBA et voudrais faire en sorte que des plans de vols contenant des METAR et TAF soit mis en forme pour ajouter de la couleur selon les conditions des terrains.

J'arrive à prendre les donnés et les mettrent dans mon excel mais n'arrive pas à y faire de la mise en page car je n'arrive pas à sélectionner des cellules.

Le fichier est en PJ, mais voici la partie qui bloque

    Set SourceWS = ThisWorkbook.Sheets("Origine")
    Set NouveauWS = ThisWorkbook.Sheets("METAR_Data")

    DerniereLigne = SourceWS.Cells(SourceWS.Rows.Count, 1).End(xlUp).Row
    DerniereLigneNouveau = 1

    For i = 1 To DerniereLigne
    For j = 1 To 2
        Select Case SourceWS.Cells(i, j).Value
            Case "METAR", "TAF"
                SourceWS.Rows(i).Copy Destination:=NouveauWS.Rows(DerniereLigneNouveau)
                DerniereLigneNouveau = DerniereLigneNouveau + 1
            Case "PROB30", "PROB40", "TEMPO", "BECMG"
                SourceWS.Rows(i).Copy Destination:=NouveauWS.Rows(DerniereLigneNouveau)
                Sheets("NouveauWS").Range("A" & DerniereLigneNouveau & ":C" & DerniereLigneNouveau).Select
                Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
                DerniereLigneNouveau = DerniereLigneNouveau + 1
        End Select
    Next j
Next i

Dans la ligne

Sheets("NouveauWS").Range("A" & DerniereLigneNouveau & ":C" & DerniereLigneNouveau).Select

Pourriez vous m'aider SVP

Bonjour,

Ah si les Select n'existaient pas !

Sans aucune certitude car évidemment on ne peut rien tester :

Essaie de remplacer les 2 lignes par :

                Sheets("NouveauWS").Range("A" & DerniereLigneNouveau & ":C" & DerniereLigneNouveau).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

A+