Sub annéeDuRecord()
Application.ScreenUpdating = False
With Sheets("records janv")
.[O4] = Date 'Date dernière mise à jour
' ** Recherche des records pluviosité
Set plageMaxPluie = Union(.[C3:C33], .[E3:E33], .[G3:G33], .[I3:I33], .[K3:K33])
tabCol = Array(2, 0, 5, 0, 8, 0, 11, 0, 14) 'pour la localité concernée, n° de la colonne dans les feuilles
For Each c In plageMaxPluie
For sh = Sheets.Count - 1 To 1 Step -1
If Sheets(sh).Cells(c.Row, tabCol(c.Column - 3)) = c.Offset(0, -1) Then c.Value = Right(Sheets(sh).Name, 4): Exit For
Next sh
Next c
' ** Totaux, max et min des lignes 34 à 38
For sh = Sheets.Count - 1 To 1 Step -1
' "Totaux mini" en ligne 34
If Sheets(sh).[B34] = .[B34] Then: If .[C34] = "" Then .[C34] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[E34] = .[D34] Then: If .[E34] = "" Then .[E34] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[H34] = .[F34] Then: If .[G34] = "" Then .[G34] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[K34] = .[H34] Then: If .[I34] = "" Then .[I34] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[N34] = .[J34] Then: If .[K34] = "" Then .[K34] = Right(Sheets(sh).Name, 4)
' "Totaux maxi" en ligne 35
If Sheets(sh).[B34] = .[B35] Then: If .[C35] = "" Then .[C35] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[E34] = .[D35] Then: If .[E35] = "" Then .[E35] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[H34] = .[F35] Then: If .[G35] = "" Then .[G35] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[K34] = .[H35] Then: If .[I35] = "" Then .[I35] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[N34] = .[J35] Then: If .[K35] = "" Then .[K35] = Right(Sheets(sh).Name, 4)
' "Ensoleillement mini" en ligne 37
If Sheets(sh).[D34] = .[B37] Then: If .[C37] = "" Then .[C37] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[G34] = .[D37] Then: If .[E37] = "" Then .[E37] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[J34] = .[F37] Then: If .[G37] = "" Then .[G37] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[P34] = .[J37] Then: If .[K37] = "" Then .[K37] = Right(Sheets(sh).Name, 4)
' "Ensoleillement maxi" en ligne 38
If Sheets(sh).[D34] = .[B38] Then: If .[C38] = "" Then .[C38] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[G34] = .[D38] Then: If .[E38] = "" Then .[E38] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[J34] = .[F38] Then: If .[G38] = "" Then .[G38] = Right(Sheets(sh).Name, 4)
If Sheets(sh).[P34] = .[J38] Then: If .[K38] = "" Then .[K38] = Right(Sheets(sh).Name, 4)
Next sh
End With
Application.ScreenUpdating = True
End Sub