Sub Macro_Outil_Juste_pour_TEST()
'cette macro ne sert qu'à créer les conditions pour tester la macro Ajouter_3
'A utiliser sur un classeur vierge avec une seule feuille vide
Dim i As Byte
Application.DisplayAlerts = False
On Error Resume Next
Worksheets("A").Delete: Worksheets("B").Delete: Worksheets("C").Delete:
On Error GoTo 0
For i = 1 To 3
Sheets.Add(after:=Sheets(Sheets.Count)).Name = Chr(64 + i)
Next
With Sheets(1)
.Name = "Saisie"
.Range("A2:G2") = "=INT(ROW()^COLUMN()/RAND())"
With .[B7].Validation: .Delete: .Add Type:=3, AlertStyle:=1, Operator:=1, Formula1:="A,B,C": End With
End With
End Sub
Sub Ajouter_3()
Set f = Sheets("Saisie")
Select Case Len(f.[B7])
Case Is > 0
Application.ScreenUpdating = False
f.Range("A2:G2").Copy
Sheets(f.[B7].Value).Cells(Rows.Count, 1).End(3)(2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
f.Range("B7,B10,D10,B14,D14,F14,B18,C18") = Empty
Case Else
Application.CutCopyMode = False
MsgBox "Veuillez renseigner le nom d'une feuille dans la cellule B7!", vbCritical, "Erreur"
End
End Select
End Sub