Sub Efface()
Sheets("Tampon").Columns("A:F").ClearContents
Sheets("Analyse arrets").Select
End Sub
Sub vExtractdonneesarret(fd$, ParamArray fs() As Variant)
Dim adrr, i As Byte
adrr = Array("A1", "D1")
For i = 0 To UBound(fs)
Sheets(fs(i)).Range("A1:C5").Copy Sheets(fd).Range(adrr(i))
Next i
End Sub
Sub a()
vExtractdonneesarret "Feuil1", "Feuil2", "Feuil3"
End Sub
Sheets("Janvier").Select
Range("BF3:BK317").Select
Selection.Copy
Sheets("Tampon").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sub a()
vExtractdonneesarret "Tampon", "Janvier", "Février" etc ...
End Sub
Si l'idée est là, pourquoi ta PJ ne refléte pas au moins ses prémisses ?Un formulaire , une Base de donnees ou tout va s'incrementer a la validation du formulaire du jour, et hop !
Private Sub CommandButton1_Click()
Dim Ce, i As Byte, dl
Ce = Split("B E G J M P S X Y Z")
dl = [A65536].End(xlUp).Row + 1
For i = 0 To UBound(Ce)
Range(Ce(i) & dl) = Controls("TextBox" & i + 1)
Next i
End Sub