Bonjour, et merci à tous pour votre aide.

1) Tout d'abord : J'aimerais simplifier le code ci-dessous (ici il n'y a que 2 "If" mais en fait il y en aurait au moins 30).
En résumé en langage courant je voudrais qu'en fonction de la valeur de F16 (If F16=....) je puisse copier une plage donnée variable (30 variables environ qui peuvent être nommée par exemple "B38:J35" serait SAMICS6) pour la coller dans une autre plage nommée fixe (S1SA1).
2) En BONUS Je souhaiterais aussi (dans la même macro si c'est possible??) qu'en fonction de la valeur de F17(If F17=...) je puisse aussi copier une plage donnée pour la coller dans une autre plage nommée fixe (S1SA2).
Avez vous une idée pour simplifier ce code?
Merci beaucoup

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub CREERSEANCE1()
'
' CREERSEANCE1 Macro
'
 
'1ere situation
 
    If Range("F16").Value = "6" Then
Sheets("SAMIC").Range("B38:J50").Copy
Sheets("S1").Select
Range("S1SA1").Select
ActiveSheet.Paste
 
End If
 
If Range("F16").Value = "2" Then
   Sheets("SAMIC").Range("B53:J62").Copy
    Sheets("S1").Select
    Range("S1SA1").Select
    ActiveSheet.Paste
End If
 
'
End Sub