Private Sub CommandButton1_Click()
With Sheets("Données")
.[H2] = DateValue(Me.ComboBox2.Text)
.[I2] = DateValue(Me.ComboBox3.Text)
.[J2] = ComboBox1.Value
.[G11] = Date
End With
With Sheets("extraction")
.Cells.ClearContents
.[A1] = "date"
.[B1] = "lieu"
If CheckBox6.Value = True Then .[IV1].End(xlToLeft).Offset(, 1) = "t°"
If CheckBox7.Value = True Then .[IV1].End(xlToLeft).Offset(, 1) = "pH"
If CheckBox5.Value = True Then .[IV1].End(xlToLeft).Offset(, 1) = "TH"
If CheckBox4.Value = True Then .[IV1].End(xlToLeft).Offset(, 1) = "TAC"
.[I2].FormulaR1C1 = _
"=SUMPRODUCT((" & "lieu" & Num_Lieu & "!RC[-8]>=Données!R2C8)*(" & "lieu" & Num_Lieu & "!RC[-8]<=Données!R2C9))=1"
Range("base1").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
"I1:I2"), CopyToRange:=.Range(.Cells(1, 1), .Cells(1, .[IV1].End(xlToLeft).Column)), Unique:=False
.[I2].ClearContents
.Select
End With
End Sub