Sub affplanning()
Dim lig As Integer, col As Integer, i As Long, dc As Integer 'déclaration des variables'
dc = Sheets("Calendrier").Cells(9, Columns.Count).End(xlToLeft).Column'derniere colonne
ctrl = True'pour ne pas lancer la 1ere macro lors de la mise à jour du planning
Range("D10:AH29").ClearContents'efface le planning
Range("D10:AH29").Interior.Pattern = xlNone'supprime les couleurs
For i = 1 To [TData].Rows.Count 'boucle lecture des données
'si la date de l'evenement correspond au calendrier
If [TData].Item(i, 1) >= Sheets("Calendrier").Range("D8") And [TData].Item(i, 1) <= Sheets("Calendrier").Cells(8, dc).Value Then
If [TData].Item(i, 2) = Sheets("Calendrier").Range("C4").Value Then 'si même nom on recopie les données
With Sheets("Calendrier").Range(Cells([TData].Item(i, 6), [TData].Item(i, 7)), Cells([TData].Item(i, 8), [TData].Item(i, 9)))
.Interior.Color = [TData].Item(i, 4)
.Value = [TData].Item(i, 5)
End With
End If
End If
Next
ctrl = False
End Sub