Private Sub Label3_Click()
'Sub EffacerCorpsFac()
Range("B19").MergeArea.ClearContents
Range("B20").MergeArea.ClearContents
Range("B21").MergeArea.ClearContents
Range("B22").MergeArea.ClearContents
Range("B23").MergeArea.ClearContents
Range("B24").MergeArea.ClearContents
Range("B25").MergeArea.ClearContents
Range("B26").MergeArea.ClearContents
Range("B27").MergeArea.ClearContents
Range("B28").MergeArea.ClearContents
Range("B29").MergeArea.ClearContents
Range("B30").MergeArea.ClearContents
Range("B31").MergeArea.ClearContents
Range("B32").MergeArea.ClearContents
Range("B33").MergeArea.ClearContents
Range("B34").MergeArea.ClearContents
Range("B35").MergeArea.ClearContents
Range("B36").MergeArea.ClearContents
Range("B37").MergeArea.ClearContents
Range("B38").MergeArea.ClearContents
Range("B39").MergeArea.ClearContents
Range("B40").MergeArea.ClearContents
Range("E19:E40").ClearContents
Range("A41").MergeArea.ClearContents
Range("A19:A40").ClearContents
Range("G19:G40").ClearContents
Range("I19:I40").ClearContents
End Sub