Effacer une colonne

Bonjour

Je souhaiterais faire une copie de lignes d'un onglet dans un autre selon une valeur qui se trouve dans la colonne O.

J'ai trouvé le script ci-dessous qui convient bien.

Option Explicit

Dim fpj, fpl, ln, lgn

Private Sub Worksheet_Activate()

    Set fpj = Sheets("fusion")
    Set fpl = Sheets("lslimi")
   fpl.Range("A2:R3000").CurrentRegion.Offset(2, 0).ClearContents

    For ln = 2 To fpj.Range("A" & Rows.Count).End(xlUp).Row
        If fpj.Range("O" & ln) = "L." Or fpj.Range("O" & ln) = "LAHCENE S" Or fpj.Range("O" & ln) = "Lahcene" Then
            lgn = Application.Max(2, fpl.Range("A" & Rows.Count).End(xlUp)(2).Row)
            fpj.Range("A" & ln & ":R" & ln).Copy fpl.Range("A" & lgn)
          ' fpj.Range("F" & ln & ":H" & ln).Copy fpl.Range("G" & lgn)

        End If
    Next ln
End Sub

Par contre, je souhaiterais avant la copie ne pas effacer le contenu des colonnes situées après la colonne T et actuellement ca m'efface toutes les colonnes

le code pour cette ligne est

fpl.Range("A2:R3000").CurrentRegion.Offset(2, 0).ClearContents

Comment dois-je-faire?

Merci pour votre aide.

Bonjour,

et tu veux effacer quoi au juste ..? les colonnes A à R ? ...si oui enlève CurrentRegion et Offset..

Oui, excuses moi. je veux effacer juste les colonnes A à R.

fpl.Range("A:R").ClearContents

Merci. Ca marche parfaitement. Par contre, si je souhaite ne pas effacer l'entête (donc la première ligne).

Que dois je ajouter?

Bonjour,

à tester :

 fpl.Range(range("A2:R2"), range("A2:R2").End(xlDown)).ClearContents

J'ai testé.ca fonctionne.

Merci