|
|
|
|
Hello,
Sub Propage()
Dim F As Worksheet
Dim NomFeuille As String
Application.ScreenUpdating = False
NomFeuille = ActiveSheet.Name
Rows("2:2").Copy
For Each F In Worksheets
With F
If .Name <> NomFeuille Then
.Activate
.Rows("2:2").Select
.Paste
.Cells(2, 1).Select
End If
End With
Next
Sheets(NomFeuille).Activate
Application.CutCopyMode = False
Application.ScreenUpdating = True
End SubIl suffit que tu te positionnes sur ta feuille source avant de l'exécuter. |