Copier pour plusieurs cellules

Bonjour,

J'utilise le code ci-dessous, il est actif que pour une cellule ("W3" et "G3" ) et je voudrais qu'il soit actif pour chaque cellules des colonnes "W" et "G".

Private Sub Worksheet_Activate()

If Not IsEmpty(Range("W3")) Then

Sheets("Maison").Range("W3").Copy Destination:=Sheets("Maison").Range("G3")

End If

End Sub

Merci et bonne journée.

Bonjour Isoya, le forum,

Peut-être ainsi: ......(pas testé)

Private Sub Worksheet_Activate()
 Dim derlig&, i%
  Application.ScreenUpdating = False
    derlig = UsedRange.Rows.Count + 2
     For i = 3 To derlig
      If Not IsEmpty(Range("W" & i)) Then Range("G" & i) = Range("W" & i)
     Next i
End Sub

Cordialement,

Bonjour xorsankukai,

Bon je vous dois une bonne bière bien fraiche ahah, ça fonctionne nickel.

Encore merci, bonne journée et fêtes de fin d'année.