Bonjour à tous,

Je suis débutant et je cherche à simplifier plusieurs suites de codes :

1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Range("S365").Select
Selection.Value = Range("A2").Value
Range("S368:S369").Select
Selection.Value = Range("A2").Value
Range("S371:S372").Select
Selection.Value = Range("A2").Value
Range("S374:S376").Select
Selection.Value = Range("A2").Value
Range("S378").Select
Selection.Value = Range("A2").Value
Range("S380:S381").Select
Selection.Value = Range("A2").Value
Range("S382:S383").Select
Selection.Value = Range("A2").Value
2

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
If Sheets("MEDIC").Range("A316").Value = "" Then
Sheets("MEDIC").Rows("316:316").Select
    Selection.EntireRow.Hidden = True
End If
 
    If Sheets("MEDIC").Range("A317").Value = "" Then
Sheets("MEDIC").Rows("317:317").Select
   Selection.EntireRow.Hidden = True
End If
 
If Sheets("MEDIC").Range("A318").Value = "" Then
Sheets("MEDIC").Rows("318:318").Select
   Selection.EntireRow.Hidden = True
End If
 
If Sheets("MEDIC").Range("A319").Value = "" Then
Sheets("MEDIC").Rows("319:319").Select
    Selection.EntireRow.Hidden = True
End If
 
    If Sheets("MEDIC").Range("A320").Value = "" Then
Sheets("MEDIC").Rows("320:320").Select
   Selection.EntireRow.Hidden = True
End If
Auriez-vous une piste pour ce type de code à répétition ?

Je vous remercie par avance