Sub remplissage()
Dim num_sem As Variant
Dim pem_jour As String
Dim co As Variant
Dim li As Variant
Dim li1 As Variant
Dim nom_soignant As String
Dim nbjour_mois As Variant
Dim w1 As String
Dim x As Range
w1 = ActiveSheet.Name
Cells(9, 3).Select
nom_soignant = Cells(5, 20).Value
Do Until IsNumeric(ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
Loop
If ActiveCell.Select = Cells(9, 3) Then
num_sem = ActiveCell.Value
Else
num_sem = ActiveCell.Value - 1
If num_sem = 0 Then num_sem = 4
End If
prem_jour = Cells(10, 3) & num_sem
Set x = Range("A:A").Find(nom_soignant, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then li1 = x.Row Else: Exit Sub
Sheets("Base_Soignants").Select
Cells(2, 10).Select
Do Until ActiveCell.Value = prem_jour
ActiveCell.Offset(0, 1).Select
Loop
co = ActiveCell.Column
Cells(8, 1).Select
Do Until ActiveCell.Value = nom_soignant
ActiveCell.Offset(1, 0).Select
Loop
li = ActiveCell.Row
Cells(li, co).Select
Range(Cells(li, co), Cells(li, co + 61)).Copy [COLOR="Red"]' ici 61 corresponds au nombre de jour dans le mois fois 2 moins 1 (comment faire pour faire le calcul en fonction du mois de la feuille?)[/COLOR]
With Sheets(w1)
.Cells(li1, 3).PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
Sheets(w1).Activate
End Sub