Prob boucle copier coller colonne

Bonjour à tous,

Je ne comprends pas. J'ai une problématique sur une boucle :

Je cherche à brasser l'ensemble des feuilles qui commencent par F et copier des blocs de colonnes vers d'autres.

Ma boucle ne fonctionne pas et la macro ne marche que sur la feuille active help me !!!!!

[code][/Sub Prev_M1()

Dim Ws As Worksheet

For Each Ws In Worksheets 'Boucle sur l'ensemble des feuille

If Left(Ws.Name, 1) = "F" Then 'Uniquement les feuille commençant par F.

With Ws

'1er Bloc

Range("AO7:AO220").Copy

Range("AF7:AF220").PasteSpecial Paste:=xlValues

'2eme Bloc

Range("AY7:AY220").Copy

Range("AP7:AP220").PasteSpecial Paste:=xlValues

'3eme Bloc

Range("BH7:BH220").Copy

Range("AZ7:AZ220").PasteSpecial Paste:=xlValues

End With

End If

Next Ws

End Subcode]

Bonjour,

Essaie ainsi :

Public Sub Prev_M1()
Dim Ws As Worksheet
    For Each Ws In ActiveWorkbook.Worksheets
        If Left(Ws.Name, 1) = "F" Then
            With Ws
                '1er Bloc
                .Range("AF7:AF220").Value = .Range("AO7:AO220").Value
                '2eme Bloc
                .Range("AP7:AP220").Value = .Range("AY7:AY220").Value
                '3eme Bloc
                .Range("AZ7:AZ220").Value = .Range("BH7:BH220").Value
            End With
        End If
    Next Ws
End Sub

Bonjour Top,

cela marche merci beaucoup !!!!!!

bien à vous