Range("A1").Copy
Range("E1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("E1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Private Sub CommandButton2_Click()
Sheets("suivi interne").Select
ActiveWindow.SmallScroll Down:=-207
Range("A3:A200").Select
Selection.Copy
Sheets("client").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Private Sub CommandButton1_Click()
With Sheets("client")
Range("A3:A200").Copy .Range("A4")
Application.CutCopyMode = False
End With
End Sub
Private Sub CommandButton2_Click()
Sheets("suivi interne").[COLOR="red"]Select
ActiveWindow.[/COLOR]SmallScroll Down:=-207
Range("A3:A200").[COLOR="Red"]Select
Selection.[/COLOR]Copy
Sheets("client").Select
Range("A4")[COLOR="Red"].Select
Selection[/COLOR].PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False